home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / mus / edit / OctamedSS1.03c.lha / Soundstudio / Rexx / omed.lha / rexx / DelDragUp.omed < prev    next >
Text File  |  1996-06-02  |  486b  |  16 lines
  1. /* Delete ranged notes, drag up */
  2. rn_isranged var rn_state
  3. if ~rn_state then wi_Showstring "Set range first."
  4. else do
  5.     rn_getrangestartline var rnstartline
  6.     rn_getrangeendline var rnendline
  7.     rn_getrangestarttrack var rnstarttrack
  8.     rn_getrangeendtrack var rnendtrack
  9.     length=(rnendline-rnstartline)+1
  10.     do until rnstarttrack=rnendtrack+1
  11.         ed_deletenote line rnstartline track rnstarttrack delspace length 
  12.         rnstarttrack=rnstarttrack+1
  13.     end
  14.     ed_goto line rnstartline
  15.     rn_cancelrange
  16. end